home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #2 / Amiga Plus CD - 1998 - No. 2.iso / pd / musik / eagleplayer2.00 / rexx / ep_nextsubsong.dopus < prev    next >
Text File  |  1997-08-05  |  822b  |  41 lines
  1. /* Eagleplayer control for DOPUS 4
  2.    (c) 1993-97 DEFECT Softworks
  3.    switches to next subsong
  4.  
  5.    ------------------------------------------------------------------------
  6.    Call as:
  7.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  8.    [ARexx]  Eagleplayer2:Rexx/EP_nextsubsong.dopus {p}
  9.  
  10.    Flags:   none required
  11.  
  12. */
  13. parse arg opusport
  14. options results
  15.  
  16. address 'rexx_EP'
  17. status m pnr
  18. nummer=result
  19. if nummer == "RESULT" then
  20.  do
  21.   address value opusport
  22.   toptext "Eagleplayer: no module loaded"
  23.   exit 0
  24.  end
  25.  else
  26.   do
  27.    status p nummer sub
  28.     if result == "no" then
  29.      do
  30.       address value opusport
  31.       toptext "Eagleplayer: no subsongs available!"
  32.      end
  33.      else
  34.       do
  35.        nextsong
  36.        song=result
  37.        address value opusport
  38.        toptext "Eagleplayer: "||song
  39.       end
  40.   end
  41.